home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_359 / dice / dice.lzh / lib / alib / intlib.a < prev   
Text File  |  1990-04-14  |  648b  |  38 lines
  1.  
  2.             ;   autoinit if you ever reference DOS
  3.             ;
  4.             ;   can't use pc-relative between different code sections
  5.             ;   and cannot put string in autoinit section!
  6.  
  7.             xdef    _IntuitionBase
  8.  
  9. _LVOOpenLibrary     equ    -552
  10. _LVOCloseLibrary    equ    -414
  11.  
  12.             section autoinit0,code
  13.  
  14.             moveq.l #0,D0
  15.             lea    intname,A1
  16.             jsr    _LVOOpenLibrary(A6)
  17.             move.l    D0,_IntuitionBase(A4)
  18. i10
  19.  
  20.             section autoexit0,code
  21.  
  22.             move.l    _IntuitionBase(A4),D0
  23.             beq    l10
  24.             move.l    D0,A1
  25.             jsr    _LVOCloseLibrary(A6)
  26. l10
  27.  
  28.             section const,code
  29.  
  30. intname         dc.b    $69,$6E,$74,$75,$69,$74,$69,$6F,$6E,$2E,$6C,$69,$62,$72,$61,$72,$79,$00
  31.  
  32.             section libbss,bss
  33.  
  34. _IntuitionBase        ds.l    1
  35.  
  36.             END
  37.  
  38.